resta_day.asp 味多美网址导航源码程序 V20100902 - ASP源码程序

www.gusucode.com > 味多美网址导航源码程序 V20100902 > 味多美网址导航源码程序 V20100902\code\admin\resta_day.asp

    <!--#include file="aq.asp"-->
<!--#include file="mdb.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='index.asp';</script>")
Response.End
End if
%>
<HTML>
<HEAD>
<TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="css.css" type=text/css rel=stylesheet>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<%
Set ViewRs = Server.CreateObject("ADODB.RecordSet")
StrSql="select * from detail"       
ViewRs.open StrSql,conn,1,1			
i=1                    
Do While Not ViewRs.Eof
upsql="update detail set yl_yesterin=yl_dayin,yl_dayin=0 where id="&ViewRs("id")&""
conn.execute upsql
response.write ViewRs("id")&"清除统计数据成功<br>"
i=i+1
ViewRs.movenext
loop
ViewRs.close
%>
</BODY></HTML>